#!/usr/bin/perl

sub mysub {
        my ($myp, $myq, $myr) = @_;

        $myp =~ s/e/X/;
		print join("|", $myp, $myq, $myr) . "\n";
}

$p = "testen";
mysub $p, "Hallo", "Welt";
print $p . "\n";
